home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_1017_TView < prev    next >
Encoding:
Text File  |  1992-04-08  |  649 b   |  34 lines

  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.     %if not classname = superClass%
  7.     
  8.         TYPE
  9.             %classname% = OBJECT (%superClass%) 
  10.                   OVERRIDE METHOD Draw        (area:        Rect);
  11.                 (*${QINSPECTOR*)
  12.                 OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
  13.                 (*$}*)
  14.         END(*%classname%*);
  15.     %endif%
  16. %case gDeadStripSuppression%
  17.     %StripSuppression%
  18. %case classMethods%
  19.     %if not classname = superClass%
  20.         {----------}
  21.         METHOD T%dlogname%.Draw    (area:        Rect);
  22.         BEGIN
  23.             (*. Put something useful here .*)
  24.         END Draw;
  25.  
  26.     %endif%
  27.     %ClassMethods%
  28. %case defImports%
  29.     FROM Types IMPORT
  30.         Rect;
  31. %case modImports%
  32.     FROM Types IMPORT
  33.         Rect;
  34.